Komputer for Alle 1998 #6/1998 CD 6 (Gul).iso/main.dir/00254.ls

Text File | 1996-02-08 | 5.4 KB | 220 lines

global fSep

on startMovie
  global voicePath, soundTrackPath, currentVoice, currentsoundTrack, vWindow, vSlider1, vSlider2, sliderTop, sliderBottom, volumeHPositions, ambientLevel, voiceLevel, gWaitForUser
  set the timeoutScript to "Nothing"
  set ambientLevel to 75
  set voiceLevel to 255
  set currentsoundTrack to "SILENCE.AIF"
  set the preLoadEventAbort to 1
  set vWindow to 46
  set vSlider1 to 47
  set vSlider2 to 48
  set gWaitForUser to 0
  soundSetup()
  puppetVolumeControls()
end

on declareGlobals
  global gDoorOpen, gNullChannel, gDoorChannel, gMooVChannel, gWhichMooV, gDrawerChannel, gQTOn
  set gDoorOpen to 0
  set gNullChannel to 12
  set gDoorChannel to 6
  set gMooVChannel to 2
  set gWhichMooV to "MONROE.MOV"
  set gDrawerChannel to 5
  set gQTOn to 0
  puppetSprite(gNullChannel, 1)
  set gLastRolledOn to 0
  set gLastCastRolledOn to 0
end

on stopMovie
  global gNullChannel, gDoorChannel
end

on resetNull
  global gNullChannel
  set the castNum of sprite gNullChannel to the number of cast "nullCast"
  updateStage()
end

on setUpDoor TRUEorFALSE
  global gDoorChannel, gDoorOpen
  puppetSprite(gDoorChannel, TRUEorFALSE)
  set gDoorOpen to not TRUEorFALSE
end

on checkRoll startChannel, endChannel, startCast
  repeat with i = startChannel to endChannel
    if rollOver(i) then
      doRollUpdate(i, startChannel, startCast)
    end if
  end repeat
end

on doRollUpdate whichSprite, startSprite, whichName
  global gNullChannel, gDoorOpen
  set castCount to whichSprite - startSprite
  set isClicked to 0
  set the castNum of sprite gNullChannel to the number of cast string(whichName) + castCount
  updateStage()
  repeat while rollOver(whichSprite)
    if the mouseDown then
      set isClicked to 1
      exit repeat
    end if
    updateStage()
  end repeat
  if not isClicked then
    set the castNum of sprite gNullChannel to the number of cast "nullCast"
    updateStage()
  end if
end

on checkDoor
  global gDoorChannel
  if rollOver(gDoorChannel) then
    activateDoor()
  end if
end

on doorOp
  global gDoorOpen, gDoorChannel
  if gDoorOpen then
    ClearPuppets()
    go(1, "HCraft")
  else
    set the castNum of sprite gDoorChannel to the number of cast "door open"
    set gDoorOpen to 1
    puppetTransition(2, 2, 3, 1)
  end if
end

on checkDrawer
  global gDrawerChannel
  if rollOver(gDrawerChannel) then
    activateDrawer()
  end if
end

on activateDrawer
  global gDoorOpen, gDrawerChannel
  set isClicked to 0
  if not gDoorOpen then
    set the castNum of sprite gDrawerChannel to the number of cast "drawer hilite"
    updateStage()
  end if
  repeat while rollOver(gDrawerChannel)
    if the mouseDown then
      drawerOp()
      set isClicked to 1
      exit repeat
    end if
    updateStage()
  end repeat
  if not isClicked then
    if gDoorOpen then
      set the castNum of sprite gDrawerChannel to the number of cast "drawer closed"
      set gDoorOpen to 0
      puppetTransition(4, 2, 6, 1)
    else
      set the castNum of sprite gDrawerChannel to the number of cast "drawer closed"
      updateStage()
    end if
  end if
end

on drawerOp
  global gDoorOpen, gDrawerChannel
  if gDoorOpen then
    beep()
  else
    set the castNum of sprite gDrawerChannel to the number of cast "drawer open"
    set gDoorOpen to 1
    puppetTransition(3, 2, 6, 1)
  end if
end

on checkMarilyn
  global gMooVChannel, gQTOn
  if rollOver(15) then
    go("Marilyn")
    if not gQTOn then
      PlayQT(gMooVChannel, 1)
    end if
  end if
end

on oldplayQT TRUEorFALSE
  global gMooVChannel, gWhichMooV
  put gMooVChannel
  set YESorNO to not TRUEorFALSE
  set the locV of sprite gMooVChannel to 207 + (12000 * YESorNO)
  set the movieRate of sprite gMooVChannel to TRUEorFALSE
  set the directToStage of cast gWhichMooV to TRUEorFALSE
  updateStage()
end

on PlayQT channelNum, TorF
  global gDoorOpen, gQTOn, gWhichMooV, gMooVChannel
  set gQTOn to TorF
  if channelNum = gMooVChannel then
    set whichQT to gWhichMooV
  end if
  set the movieRate of sprite channelNum to TorF
  set the visible of sprite channelNum to TorF
  set the directToStage of cast the number of cast whichQT to TorF
  if TorF = 0 then
    set the movieTime of sprite channelNum to TorF
    set the volume of sprite channelNum to TorF
    puppetSprite(channelNum, TorF)
    go(label("viewR") + 1)
  else
    set the volume of sprite channelNum to 255
    WaitForQT(gMooVChannel)
  end if
end

on WaitForQT channelNum
  global gMooVChannel
  if the movieTime of sprite value(channelNum) < the duration of cast string(the name of cast value(the castNum of sprite value(channelNum))) then
    go(the frame)
  else
    PlayQT(channelNum, 0)
  end if
end

on animate whichMember, channel, delay, frames
  global gDoorOpen, gStarsOn, gPanelChannel, gStarChannel, gDest, gScreenBlank, gLastRate, gSpeedChannel, gWhichMooV, gWhichTV, gMooVChannel, gVidChannel
  set counter to 0
  repeat while gScreenBlank = 0
    if counter = (frames - 1) then
      set counter to 0
    else
      set counter to counter + 1
    end if
    set the castNum of sprite channel to the number of cast whichMember + counter
    updateStage()
    wait(delay)
    if the mouseDown then
      blankScreen()
    end if
    checkRoll()
    checkStar()
    checkDoor()
  end repeat
end

on propertySet propertyType, startChannel, endChannel, TRUEorFALSE
  repeat with i = startChannel to endChannel
    do("set the" && propertyType && "of sprite i = " & TRUEorFALSE)
  end repeat
end

on wait howLong
  startTimer()
  repeat while the timer <= howLong
  end repeat
end